PROC alarms:
	local r%,acb%
	local t1&,t2&,m$(20)
	local h%,dayinc%
	r%=ioopen(acb%,"ALM:",-1)
	if r% :raise r% :endif
	while 1
		dayinc%=0
		h%=hour
		if h%<7
			h%=7
		elseif h%<12
			h%=12
		elseif h%<17
			h%=17
		elseif h%<23
			h%=23
		else
			dayinc%=1
			h%=7
		endif
		t1&=datetosecs(year,month,day+dayinc%,h%,0,0)
		t2&=t1&
		m$="Don't forget!"
		iow(acb%,2,t1&,#addr(m$)+1)
	endwh
ENDP